home *** CD-ROM | disk | FTP | other *** search
- 1 PRINT"[147]":MM=5:CH=0:CP=0:XV=1
- 2 MM=5:PT=0:RF=INT(RND(1)*2)+1:IFRF=1THENV$="B"
- 3 IFRF=2THENV$="S"
- 4 IFRF=3THENV$="F"
- 6 TI$="000000":POKE53280,6:POKE53281,0:PRINT"[147]"
- 7 FORA=1TO20
- 8 PRINT"[159]TOP DOLLAR"
- 9 PRINT"BY:ANDREW BLEVINS"
- 10 FORB=1TO50:NEXTB
- 11 PRINT"TOP DOLLAR"
- 12 PRINT"BY:ANDREW BLEVINS"
- 13 FORB=1TO50:NEXTB:NEXTA
- 14 IFXV>1THENGOTO70
- 19 PRINT"[147][159]TOP DOLLAR:"
- 20 PRINT"[144]A *FASTPACED* MAZE GAME WHERE YOU WANT TO EXCEL IN THE ART OF THEFT!"
- 21 PRINT"YOU WIND YOUR WAY THROUGH A BANK AND PICK UP ANY CASH YOU FIND,"
- 22 PRINT"TO PAY OFF ANY OF THE CORRUPT GUARDS YOUMAY RUN INTO INSIDE THE BANK."
- 40 PRINT"AND LOOK FOR THE BANKS VAULT WITH AN AMOUNT OF CASH OVER $10,000!"
- 50 PRINT"AND A SECRET ESCAPE ROUTE THAT TAKES YOUFROM THE BANK TROUBLEFREE!"
- 51 PRINT"AND UPON ESCAPE YOU'LL BE NOTIFIED BY USAS TO HOW MANY MOVES YOU MADE!"
- 52 PRINT"AS WELL AS YOUR APPROX. AMOUNT OF TIME YOU'VE TAKEN TO COMPLETE THEM."
- 60 FORA=55536TO56096
- 65 POKEA,3:FORK=1TO30:NEXTK:NEXTA
- 69 B=INT(RND(1)*9)
- 70 IFB>8THENGOTO69
- 71 IFB=1THENA$="MR. TIM JIPER"
- 72 IFB=2THENA$="MR. ROB TODAY"
- 73 IFB=3THENA$="MR. VAN BASTE"
- 75 IFB=4THENA$="MR. BIG GRASP"
- 76 IFB=8THENA$="MR. MOB CRAFT"
- 77 IFB=6THENA$="MR. HOT PRINT"
- 78 IFB=7THENA$="MR. WILL KILL"
- 79 IFB=5THENA$="MR. SAM SLASH"
- 80 FORA=1TO30
- 81 PRINT"[147][159]YOUR ALIAS NAME IS: [158]";A$
- 83 PRINT"[147][159]YOUR ALIA$ NAME IS: ";A$
- 84 NEXTA
- 85 FORA=1TO50:NEXTA
- 90 PRINT"[147]YOU RUN UNCONTROLABLY THROUGH THE FRONT OF THE BUILDING, SWIFTLY!"
- 95 PRINT"YOU DIRECTLY RUN INTO A FORK IN THE HALLAND YOU DECIDE TO TURN?
- 100 B$[178]"":[133]"R-RIGHT OR L-LEFT";B$:PT[178]PT[170]1
- 110 [139]B$[178]"R"[167][141]10000:[137]1000
- 111 [139]B$[178]""[167][137]90
- 112 [141]10000
- 120 B$[178]"":[153]"LOADYOU NOW RUN INTO SOME FILING CABNETS SO YOU GO AROUND THEM."
- 125 B$[178]"":[133]"L-LEFT R-RIGHT";B$:PT[178]PT[170]1
- 130 [139]B$[178]"R"[167][137]20000
- 131 [139]B$[178]""[167][137]120
- 136 [153]"LOADYOU LOOK DOWN SOME OMINUS STAIRS AND YOUWONDER WHAT TO DO??"
- 137 B$[178]"":[133]"DS-DOWNSTAIRS R-RIGHT";B$:PT[178]PT[170]1:[139]B$[178]"DS"[167][141]30000
- 138 [139]B$[178]"R"[167]1000
- 139 [139]B$[178]""[167][137]136
- 140 [153]"LOADMORE AND MORE STAIRS ALL AROUND YOU AND YOU'RE GETTING TIRED."
- 141 B$[178]"":[133]"US-UPSTAIRS DS-DOWNSTAIRS";B$:PT[178]PT[170]1:[139]B$[178]""[167][137]140
- 142 [153]"LOADYOU HEAR THE KEYS OF A GUARD AND HE HAS A BUNCH!!":B$[178]""
- 143 [133]"DS-DOWNSTAIRS R-RIGHT";B$:PT[178]PT[170]1:[139]B$[178]"DS"[167][141]30000:[137]40000
- 144 [139]B$[178]""[167][137]142
- 145 [153]"LOADAFTER ALOT OF RUNNING YOU FIND AN OFFICEDOOR OPEN DO YOU GO IN?"
- 146 B$[178]"":[133]"Y-YES N-NO";B$:PT[178]PT[170]1:[139]B$[178]"N"[167][137]153
- 147 [153]"LOADYOU FIND NOTHING BEHIND YOU AND YOU SEE LIGHT FROM AN OPEN DOOR?"
- 148 B$[178]"":[133]"T-TO THE LIGHT F-FROM THE LIGHT";B$:PT[178]PT[170]1:[139]B$[178]"T"[167][137]300
- 149 [139]B$[178]""[167][137]147
- 150 [153]"LOADYOU SEE A RED LIGHT AT THE END OF THE HALL AND SOME STAIRS?"
- 151 B$[178]"":[133]"DS-DOWNSTAIRS H-HALLWAY";B$:PT[178]PT[170]1:[139]B$[178]"H"[167][137]1014
- 152 [139]B$[178]""[167][137]150
- 153 [153]"LOADYOU SEE TWO TUNNELS NUMBER ONE AND TWO WHICH DO YOU CHOOSE??"
- 154 B$[178]"":[133]"O-ONE T-TWO";B$:PT[178]PT[170]1:[139]B$[178]"T"[167][137]3012
- 155 [139]B$[178]""[167][137]153
- 156 MM[178]60:[141]30000:[141]30000
- 157 [153]"LOADYOU STEP IN AN ELEVATOR AND THERE ARE 3 FLOORS WHICH DO YOU CHOOSE?"
- 158 B$[178]"":[133]"F-FIRST S-SECOND B-BASEMENT";B$:PT[178]PT[170]1:[139]B$[178]""[167][137]158
- 159 [137]60000
- 300 [153]"LOADYOU HEAR PEOPLE TALKING LIKE THEY'RE OFFWORK SO WHERE DO YOU GO?"
- 301 B$[178]"":[133]"TO-TO THE SOUND R-TO THE RIGHT";B$:PT[178]PT[170]1:[139]B$[178]"R"[167][137]1001
- 302 [139]B$[178]""[167][137]300
- 303 [141]10000
- 304 [153]"LOADYOU HEAR SOMEONE WHISTLING AND ROLLING ABUCKET OF WATER."
- 305 B$[178]"":[133]"O-ONWARD US-UPSTAIRS";B$:PT[178]PT[170]1:[139]B$[178]"O"[167][137]55555
- 306 [139]B$[178]""[167][137]304
- 308 [153]"LOADSOMEONE IS NOW YELLING (HALT OR ELSE) AND YOU PANIC!!!"
- 309 B$[178]"":[133]"RR-RUN RIGHT RL-RUN LEFT";B$:PT[178]PT[170]1:[139]B$[178]"RR"[167][137]20000
- 310 [139]B$[178]""[167][137]308
- 311 [137]136
- 1000 [141]30000
- 1001 [153]"LOADYOU FIND AN AIRCONDITIONER VENT AND IN IT YOU CAN TAKE 2 PATHS."
- 1002 B$[178]"":[133]"U-UP D-DOWN";B$:PT[178]PT[170]1:[139]B$[178]"U"[167][137]40000:[139]B$[178]""[167]1001
- 1003 [153]"LOADYOU NOW FIND A PATH STRAIGHT AHEAD WITH A LIGHT AND YOU GO ON?"
- 1004 B$[178]"":[133]"Y-YES N-NO";B$:PT[178]PT[170]1:[139]B$[178]"Y"[167][141]10000:[137]2000
- 1005 [139]B$[178]""[167][137]1003
- 1006 [141]10000
- 1007 [153]"LOADYOU SEE DOWN A SLOPING VENT TO ANOTHER FORK AND YOU DECIDE!"
- 1008 B$[178]"":[133]"R-RIGHT L-LEFT";B$:PT[178]PT[170]1:[139]B$[178]"R"[167][137]136
- 1009 [139]B$[178]""[167][137]1006
- 1010 [139]B$[178]"L"[167][137]3000
- 1011 [153]"LOADYOU FEEL AROUND IN THE DARK AND YOU FINDA VERY LARGE PIPE, SO GO?"
- 1012 B$[178]"":[133]"L-LEFT R-RIGHT";B$:PT[178]PT[170]1:[139]B$[178]"L"[167][141]10000
- 1013 [139]B$[178]"R"[167][137]3000
- 1014 [153]"LOADYOU'RE BACK IN AN OFFICE CORRIDOR AND ITIS DARK, DO YOU GO ON?"
- 1015 B$[178]"":[133]"Y-YES N-NO";B$:PT[178]PT[170]1:[139]B$[178]""[167][137]1014
- 1016 [139]B$[178]"N"[167][137]3000
- 1017 [141]30000
- 1018 [153]"LOADYOU START TO SMELL SOME VERY STRONG GAS SO YOU MUST?"
- 1019 B$[178]"":[133]"RR-RUN RIGHT L-LEFT";B$:PT[178]PT[170]1
- 1020 [139]B$[178]"RR"[167][137]20000
- 1021 [139]B$[178]"L"[167][137]140
- 2000 [153]"LOADTHERE'S ALOT OF INSULATION AND YOU ITCH AND THERE IS AN OPENING?"
- 2001 B$[178]"":[133]"E-ENTER IT N-NO";B$:PT[178]PT[170]1:[139]B$[178]"E"[167][137]2020
- 2002 [139]B$[178]""[167]2000
- 2003 [153]"LOADYOU'VE COME TO A PILE OF TRASH AND IT DOESN'T SEEM A HARM TO YOU?"
- 2004 B$[178]"":[133]"A-AROUND IT T-THROUGH IT";B$:PT[178]PT[170]1:[139]B$[178]""[167]2003
- 2005 [139]B$[178]"T"[167][141]10000
- 2006 [139]B$[178]"A"[167][137]2022
- 2020 [153]"LOADYOU HEAR SOMEONE WITH KEYS AND YOU GET VERY PARINOID!!":B$[178]""
- 2021 [133]"B-MOVE BACK RL-RUN LEFT";B$:PT[178]PT[170]1:[139]B$[178]"BR"[167][141]30000:[137]40000
- 2022 [153]"LOADYOU SEE A LARGE DEVICE IN YOUR PATH AND YOU'RE NOT SURE WHAT TO DO?"
- 2024 B$[178]"":[133]"O-OVER IT U-UNDER IT";B$:PT[178]PT[170]1
- 2025 [139]B$[178]"U"[167][137]1001
- 2026 [139]B$[178]""[167][137]2022
- 2030 [153]"LOADYOU NOW SPY SOMETHING TO THE RIGHT ON A TABLE SO WHERE DO YOU GO?"
- 2031 [133]"S-STRAIGHT R-RIGHT";B$:PT[178]PT[170]1:[139]B$[178]""[167]2030:[139]B$[178]"R"[167][141]10000
- 2032 [139]B$[178]"S"[167][137]3005
- 2033 [153]"LOADYOU CAN SMELL SOME WARM FRESH AIR AND DOYOU WISH TO GET CLOSER?"
- 2034 [133]"CF-CLOSER FOREWARD FB-FARTHER BACK";B$:PT[178]PT[170]1:[139]B$[178]"CF"[167][137]40000
- 2035 [139]B$[178]"FB"[167][137]3008
- 3000 [141]30000
- 3005 [153]"LOADYOU'VE FOUND A STAIRWELL AND DO YOU WISHTO ENTER IT?"
- 3006 B$[178]"":[133]"Y-YES N-NO";B$:PT[178]PT[170]1:[139]B$[178]""[167][137]3005:[139]B$[178]"N"[167][137]2024
- 3008 [153]"LOADYOU DEFINITELY HEAR A GUARD COMING WHICHHALLWAY DO YOU CHOOSE?"
- 3009 B$[178]"":[133]"L-LEFT R-RIGHT";B$:PT[178]PT[170]1:[139]B$[178]"L"[167][141]30000:[137]1014
- 3010 [153]"LOADYOU SEE SOME STAIRS AND YOU NEED TO GET SOMEWHERE CLOSER IN BACK?"
- 3011 B$[178]"":[133]"US-UPSTAIRS DS-DOWNSTAIRS";B$:PT[178]PT[170]1:[139]B$[178]"US"[167][137]2028
- 3012 [153]"LOADYOU'VE FOUND A SECRET DOOR IT SEEMS AND IT HAS A KEY IN ITS LOCK!"
- 3013 B$[178]"":[133]"O-OPEN IT GA-GO AWAY";B$:PT[178]PT[170]1:[139]B$[178]""[167][137]3012
- 3014 [139]B$[178]"GA"[167][137]3008
- 3015 [139]B$[178]"O"[167][141]10000
- 3016 [137]95
- 10000 [153]"LOADYOU'VE FOUND SOME CASH, WOULD YOU LIKE TO PICK IT UP?"
- 10001 C$[178]"":[133]"Y-YES N-NO";C$:[139]C$[178]""[167][137]10000
- 10002 [139]C$[178]"Y"[167]Z[178][181]([187](1)[172]150)[170]30:CH[178]CH[170]Z
- 10003 [139]C$[178]"N"[167][137]10015
- 10010 CC[178][181]([187](1)[172]100):[139]CC[177]95[167][137]20370
- 10015 [153]"LOADYOU HAVE";CH"DOLLARS.":[129]A[178]1[164]2000:[130]A:[153]"LOAD":[142]
- 20000 EG[178][181]([187](1)[172]9)[170]1
- 20001 [139]EG[178]7[167][137]20100
- 20002 [139]EG[178]5[167][137]20200
- 20003 [139]EG[178]9[167][137]20300
- 20004 [139]EG[178]4[167][137]20350
- 20005 [139]EG[178]2[167][137]20360
- 20050 [137]20000
- 20100 [153]"LOADYOU ARE EATEN IN A SLOW BLOODY DEATH BY LARGE GUARD DOGS!!"
- 20101 [137]20400
- 20200 [153]"LOADA LARGE CALIBER PISTOL HITS YOU MULTIPLETIMES FROM THE DARK!!"
- 20202 [137]20400
- 20300 [153]"LOADYOU ARE BREATHING POISONOUS GASES THAT MAKE YOU PASS OUT FOREVER!"
- 20303 [137]20400
- 20350 [153]"LOADYOU SLIP ON A NEWLY WAXED FLOOR AND YOU CRACK YOUR SKULL!!"
- 20351 [137]20400
- 20360 [153]"LOADYOU ARE WRAPPED UP IN A BLANKET FROM THEREAR AND STABBED TO DEATH!"
- 20361 [137]20400
- 20370 [153]"LOADYOU ARE CAPTURED AND TORTURED IN A SLOW DEATH FOR STEALING CASH!"
- 20400 [129]A[178]1[164]2500:[130]A
- 20500 [153]"LOAD";A$
- 20501 [129]A[178]1[164]150
- 20502 [153]"IS DEAD!!"
- 20503 [153]"SYSIS DEAD!!"
- 20504 [130]A
- 20505 [153]"HIT ANY KEY TO START"
- 20506 [161]H$:[139]H$[177][179]""[167]CH[178]0:XV[178]XV[170]1:[137]2
- 20507 [137]20506
- 30000 CP[178][181]([187](10)[172]95)[170]MM
- 30005 [153]"LOADYOU'VE RUN INTO A GUARD AND HE WANTS";CP"DOLLARS!"
- 30006 [153]"GIVE IT OR DIE!!":[129]A[178]1[164]2500:[130]A
- 30007 [139]CH[177]CP[167]CH[178]CH[171]CP:[153]"LOADTHE GUARD FREES YOU!!":[129]A[178]1[164]1900:[130]:[142]
- 30008 [139]CH[179]CP[167][137]20200
- 40000 [153]"LOADWELL OPEN";A$" THE DOOR IS LOCKED AND YOUR OUT WITH ";CH;
- 40001 [153]"DOLLARS!
- 40005 FORA=1TO3500:NEXTA:PRINT"[147]GAME OVER![158]"
- 40006 PRINT"HIT ANY KEY TO START":XV=XV+1
- 40007 GETH$:IFH$><""THENCH=0:GOTO2
- 40008 GOTO40007
- 50000 PRINT"[147]":HC=INT(RND(1)*1045)+577
- 50001 FORA=1TO15:PRINT"$$CASH$$$CASH$$CASH$$CASH$$$CASH$$CASH$$"
- 50002 PRINT"$$CASH$$$CASH$$CASH$$CASH$$$CASH$CASH$$"
- 50005 CH=CH+HC:NEXTA
- 50006 FORA=1TO15:PRINT" SH$$$CASH$$CASH$$CASH$$$CASH$$CA"
- 50007 PRINT" SH$$$CASH$$CASH$$CASH$$$CASH$$CA"
- 50008 CH=CH+HC:NEXTA
- 50009 FORA=1TO15:PRINT" $CASH$$CASH$$CASH$$$"
- 50010 PRINT" $CASH$$CASH$$CASH$$$"
- 50011 CH=CH+HC:NEXTA
- 50012 FORA=1TO15:PRINT" CASH$"
- 50013 PRINT" CASH$"
- 50014 CH=CH+HC:NEXTA
- 50040 PRINT"[147]"
- 50050 PRINT"[159]CONGRADULATIONS YOU ARE A PROFESSIONAL THEFTIST [158]";A$
- 50055 PRINT"[159]AND YOU HAVE GOTTEN AWAY WITH$";CH".00"
- 50056 PRINT"":FORA=1TO9
- 50057 PRINT" ":NEXTA
- 50060 FORA=1TO2500:NEXTA
- 50063 PRINT""
- 50064 PRINT" [159]GAME OVER!"
- 50065 PRINT" WITH";PT"MOVES!"
- 50066 PRINT" APPROX.TIME";VAL(TI$)"[157][157][157]"CHR$(148)"[157][157]:"
- 50067 FORA=1TO7:PRINT" ":NEXTA
- 50068 GOTO50068
- 55555 PRINT"[147]YOUR PARTNER THE JANITOR SAYS '";V$"' IS THEWORD...."
- 55556 FORA=1TO1500:NEXT:GOTO308
- 60000 IFB$=V$THENGOTO50000
- 60001 IFB$="F"ORB$="S"ORB$="B"THENGOTO20000
- 60002 IFB$><"F"ORB$><="S"ORB$><="B"THENGOTO20000
-